home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 1 / NetNews Offline Volume 1.iso / news / fido / ger / amiga / 83 < prev    next >
Internet Message Format  |  1996-03-16  |  4KB
  1. From: Dieter_Luetje@f5802.n240.z2.fido.sub.org (Dieter Luetje)
  2. Organization: LuZi's Box
  3. Path: f5802.n240.z2.fidonet.org!not-for-mail
  4. Newsgroups: fido.ger.amiga
  5. Subject: Re: ARC vs Nodediff
  6. Message-ID: <MSGID_2=3A240=2F5802=40fidonet_30204b12@fidonet.org>
  7. Date: Wed, 02 Aug 1995 22:05:34 +0200
  8.  
  9. On Son 30-Jul-1995 20:44 , Matthias Taube said to Tilo Winkler:
  10. MT> Am 26 Jul 95 schrieb tilo winkler in AMIGA.GER an Jan Schmidwenzl:
  11.  
  12. MT>  JS>> PKAX.LHA, Amiga Universe, 2:246/1454
  13.  
  14. MT>  tw> kann der wildcards? ich habe hier naemlich so ein mist-arc, der das
  15. MT>  tw> nicht kann :-[ (somit auch keine automatische verarbeitung der
  16. MT>  tw> ndediffs)
  17.  
  18. MT> Hex Editor anschmeissen, im Text nach ".arc" suchen und durch 00 ersetzen.
  19. MT> Und schon gehts.
  20.  
  21. Geht auch mit 'nem simplen Scriptfile:
  22.  
  23. .Key Inbound,DiffDir,TrapListDir
  24. .Def Inbound     MAIL:Inbound
  25. .Def DiffDir     MAIL:Nodediff
  26. .Def TrapListDir DFUE:Bin
  27. .Bra {
  28. .Ket }
  29.  
  30.   ChangeTaskPri -1 ; Script mit niedriger Prioritaet.
  31.   Assign        CheckInbound: "" ; Current-drive and -path merken.
  32.   Set           DiffFlag      0  ; Flag zum Aufruf von TrapList.
  33.  
  34. ; *** FidoNodediff's bearbeiten ***************************************
  35.  
  36.   TrapScan >t:DiffName{$$}.lis DIRECTORY {Inbound} FILE NodeDiff.A?? AND
  37.            TAG FROM BOSSADRESSE LFORMAT "%s"
  38.   Search >NIL: t:DiffName{$$}.lis NodeDiff
  39.   If NOT WARN
  40.      Lab FidoNodeDiff
  41.      Cd {Inbound}                            ; Ins Inbound-Directory.
  42.      List >ENV:DNa NODEDIFF.A?? LFormat="%s" ; Dateinamen d. NodeDiff's
  43.                                              ; in Variable schreiben.
  44.      FailAt 21
  45.      Copy >NIL: $DNa {DiffDir} CLONE         ; Origin. NodeDiff retten.
  46.      If NOT ERROR                            ; Wenn     kein     Fehler
  47.                                              ; aufgetreten ist, gibt es
  48.                                              ; eine NodeDiff-Datei.
  49.  
  50.         Rename $Dna NodeDiff.arc             ; Umbenennen,  da Pkax nur
  51.                                              ; mit  der  Endung arc ar-
  52.                                              ; beitet.
  53.         Cd NodeList:                         ; In    das    Verzeichnis
  54.                                              ; Nodelist: verzweigen.
  55.         Pkax >NIL: -x {Inbound}/NodeDiff     ; Nodediff auspacken.
  56.         Delete {Inbound}/NodeDiff.arc        ; Gepackte  Nodediff  MUSS
  57.                                              ; unbedingt     aus    dem
  58.                                              ; Inbound-Directory   weg,
  59.                                              ; sonst  bleiben  wir ewig
  60.                                              ; in der Schleife.
  61.         Set DiffFlag 1                       ; Traplist   wird  spaeter
  62.                                              ; aufgerufen.
  63.  
  64. ;       NodeDiff an die Fido-Points verteilen.
  65.         MakeMail TO "Point Name" TOADR Pointadresse DIR MAIL:NetMail
  66.                  FILE MAIL:Messages/NodeDiff.txt FROMADR 2:240/5802
  67.         Sendfile -nPointadresse -H MAIL:NodeDiff/$DNa
  68.  
  69.         Skip BACK FidoNodeDiff ; Das  ganze nochmal, falls noch weitere
  70.                                ; Nodediffs vorhanden sind.
  71.  
  72.      EndIf
  73.  
  74.   EndIf
  75.  
  76.   Delete  t:DiffName{$$}.lis QUIET ; Ein bischen aufraeumen.
  77.  
  78. ; *** Traplist aufrufen falls Diff's vorhanden ************************
  79.  
  80.   If $DiffFlag EQ 1
  81.     CD {TrapListDir}
  82.     TrapList
  83.  EndIf
  84.  
  85.  
  86. ; *** Nochmal aufraeumen **********************************************
  87.  
  88.   Cd CheckInbound:     ; Zurueck zum Ausgangsverzeichnis.
  89.   Assign CheckInbound:
  90.  
  91.   UnSetEnv CheckInbound
  92.   UnSet    DiffFlag
  93.   UnSetEnv DNa
  94.                               //   cul8er
  95.  AmigaNet: 39:170/203        //           -
  96.   FidoNet: 2:240/5802       //              Dieter
  97.  __EveNet: 707:2001/7 __\\ //_________________________________________
  98. (________________________\X/__________________________________________)
  99. (InterNet: d.luetje@luzisbox.heide.de_________________________________)
  100.